helper function to process time series

And some package and labeling info

#TODO harmonize color bars? at least for precip so it has brown for decreases
library(ggplot2)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(tidyr)
library(kohonen)
library(vegan)  # for vegdist function which gives a dissimilarity index
## Loading required package: permute
## Loading required package: lattice
## This is vegan 2.6-4
# for knitting
#
timeseries_dir <- 'python_curation/extracted_timeseries/'

# for console
timeseries_dir <- 'extracted_timeseries/'

# get ecs ordering/labels
esm_labels <- read.csv(paste0(timeseries_dir,'global_tas_allesms.csv'), stringsAsFactors = FALSE) %>%
  select(esm) %>% distinct %>% 
  mutate(plotesm = paste0(letters[as.integer(row.names(.))], '.', esm),
         ECS_order = as.integer(row.names(.)))

process_time_series <- function(time_series_df, esm_label_info,
                                hist_start = 1995, hist_end = 2014){
  # Get ensemble member values for projection runs:
  # 1. 2080-2099 average
  # 2. loess detrend each ensemble member to get IAV
  #
  # split by run
  non_hist <- time_series_df %>% 
    filter(experiment != 'historical') %>% 
    select(year, ann_agg, esm, experiment, ensemble, variable, region)
  
  grouped <- split(non_hist, f = list(non_hist$esm, 
                                      non_hist$experiment,
                                      non_hist$ensemble, 
                                      non_hist$variable ,
                                      non_hist$region) )
  # split creates group of every possible combo of the variables and fills in
  # empty dataframes for the ones that don't exist in data. Drop those
  grouped <- grouped[lapply(grouped, nrow)>0]
  
  processed_groups <- lapply(grouped, FUN = function(run_df){
    loess_resids <- loess(run_df$ann_agg ~ run_df$year)$residuals
    
    run_df %>%
      filter(year >= 2080, year <= 2099) %>%
      group_by(esm, experiment, ensemble, variable, region) %>%
      summarise(average_2080_2099 = mean(ann_agg)) %>% 
      ungroup  %>%
      mutate(iasd = sd((loess_resids))) ->
      output_df
    
    return(output_df)
    
  })
  
  individual_stats <- do.call(bind_rows, processed_groups)
  rm(non_hist)
  rm(grouped)
  rm(processed_groups)
  
  # calculate ensemble averages
  individual_stats %>%
    group_by(esm, experiment, variable,region) %>%
    summarise(average_2080_2099 = mean(average_2080_2099),
              iasd = mean(iasd)) %>%
    ungroup ->
    ensemble_stats
  
  
  # get ensemble average historical average value:
  time_series_df %>%
    filter(experiment == 'historical',
           year >= hist_start,
           year <= hist_end) %>%
    group_by(esm, experiment, ensemble, variable, region) %>%
    summarise(historical_average = mean(ann_agg)) %>%
    ungroup %>%
    group_by(esm, experiment, variable, region) %>%
    summarise(historical_average = mean(historical_average)) %>%
    ungroup %>%
    select(-experiment) ->
    historical_ens
  
  
  # shape and calculate changes for plotting:
  ensemble_stats %>%
    left_join(historical_ens, by = c('esm', 'variable', 'region')) %>%
    left_join(esm_label_info, by = 'esm') %>%
    mutate(change = average_2080_2099 - historical_average,
           pct_change = 100*(average_2080_2099 - historical_average)/historical_average) ->
    plot_tbl
  
return(plot_tbl)
}

prep_esm_TP_data <- function(esmname){
  
  region_timeseries <- read.csv(paste0(timeseries_dir, 'IPCC_land_regions_tas_', esmname, '_timeseries_1980_2099.csv'),
                              stringsAsFactors = FALSE) %>% mutate(region = acronym)
  
  region_tas_summary <- suppressMessages(process_time_series(time_series_df = region_timeseries, esm_label_info = esm_labels))
  
  region_pr_summary <- suppressMessages(process_time_series(time_series_df = 
                                                            read.csv(paste0(timeseries_dir, 'IPCC_land_regions_pr_', esmname,'_timeseries_1980_2099.csv'),
                                                                     stringsAsFactors = FALSE) %>%
                                                            rename(ann_agg=pr) %>% 
                                                            mutate(region = acronym) ,
                                                          esm_label_info = esm_labels))
  
  # reshape so each row is an observation
  # observation = esm - experiment - region - tas change-tas iasd - pr pct change
  region_tas_summary %>% 
    select(esm, experiment, region, iasd, change) %>%
    rename(tas_change = change) %>%
    left_join(region_pr_summary %>%
                select(esm, experiment, region, pct_change) %>% 
                rename(pr_pct = pct_change),
              by = c('esm', 'experiment', 'region')) ->
    region_summary

return(region_summary)
  
}

load for an ESM

Consider an observation = esm - experiment - region - tas change-tas iasd - pr pct change

region_summary <- prep_esm_TP_data(esmname =  'CESM2-WACCM')
print(head(region_summary))
## # A tibble: 6 × 6
##   esm         experiment region  iasd tas_change pr_pct
##   <chr>       <chr>      <chr>  <dbl>      <dbl>  <dbl>
## 1 CESM2-WACCM ssp126     ARP    0.320       1.38  -6.08
## 2 CESM2-WACCM ssp126     CAF    0.278       1.57   3.36
## 3 CESM2-WACCM ssp126     CAR    0.189       1.16  -1.48
## 4 CESM2-WACCM ssp126     CAU    0.407       1.93 -11.2 
## 5 CESM2-WACCM ssp126     CNA    0.624       2.15   7.91
## 6 CESM2-WACCM ssp126     EAS    0.321       1.55   9.79

test 1

let’s see if it can learn the experiment or region clustering of the data points if I only give the numerical values

region_numerical <- as.data.frame(region_summary[c('iasd', "tas_change", "pr_pct")])

#### train the SOM ####
sample.size <- nrow(region_numerical)
print(paste('Num Observations is', sample.size ))
## [1] "Num Observations is 172"
## define a grid for the SOM and train
grid.size <- ceiling(sample.size ^ (1/2.5))
som.grid <- somgrid(xdim = grid.size, ydim = grid.size, topo = 'hexagonal', toroidal = T)
som.model <- som(data.matrix(region_numerical), grid = som.grid)
## extract some data to make it easier to use

som.events <- som.model$codes[[1]]
print(som.events)
##          iasd tas_change      pr_pct
## V1  0.2952877   3.090752 -12.5351842
## V2  0.3412370   2.262010 -11.0500349
## V3  0.3186548   1.544465  -7.9889043
## V4  0.3395871   2.605569   1.0146946
## V5  0.5060097   4.261916   8.8078429
## V6  0.4733200   4.107258   9.9252579
## V7  0.5608550   3.394034   2.0961786
## V8  0.3129828   2.895714  -7.6029336
## V9  0.3350444   2.080219  -5.5055766
## V10 0.3252088   2.042022  -6.3787719
## V11 0.3607340   1.578686  -6.2694959
## V12 0.3973447   2.325836  -0.4983461
## V13 0.3905721   2.953227   6.2948107
## V14 0.3696499   4.232897   7.2665055
## V15 0.3946111   3.515237   4.9437036
## V16 0.3565371   2.658638  -1.4269191
## V17 0.3034823   1.974943  -4.3703458
## V18 0.3507607   1.592711  -2.9655610
## V19 0.5572978   1.749577   0.2236376
## V20 0.4583123   2.097824   5.4112938
## V21 0.4666327   2.595243   7.9833191
## V22 0.3796468   3.086433   7.9579002
## V23 0.4024870   2.840527   3.4360825
## V24 0.2387949   2.572827  -2.6488312
## V25 0.3901146   2.533878  -1.1323046
## V26 0.3142031   1.169853  -1.5376660
## V27 0.4183328   1.294667   0.9893358
## V28 0.3478324   1.497359   3.8744208
## V29 0.5576115   1.830667   9.5476273
## V30 0.4019606   1.888671  12.4616453
## V31 0.4611882   2.671846   8.8334845
## V32 0.5004081   3.668804   4.0612848
## V33 0.4170023   2.905356  -1.1283357
## V34 0.3371190   1.879541  -0.8638286
## V35 0.4649556   1.669883   2.3575824
## V36 0.5162535   1.901239   7.7184159
## V37 0.3082541   2.415155  17.2964853
## V38 0.3417666   3.489589  20.1466450
## V39 0.5872495   5.325173  10.3260626
## V40 0.6374942   5.215304   4.2014967
## V41 0.4287497   4.343315  -2.0955642
## V42 0.3385132   3.630150 -10.0018833
## V43 0.3732186   3.443414  -5.9136100
## V44 0.2942119   2.908127   0.3735700
## V45 0.3612350   3.498587  16.6278427
## V46 0.3539766   5.341404  29.8234654
## V47 0.4204164   5.467077  22.4680063
## V48 0.5778865   6.001455   9.5194394
## V49 0.3150938   4.352278 -19.3549616
## V50 0.3059494   4.540768 -13.1523138
## V51 0.3749631   4.436196  -9.0514564
## V52 0.3926172   4.028057   0.2199396
## V53 0.5413141   5.152060  18.2938402
## V54 0.5347570   6.611581  19.5689415
## V55 0.5638872   5.821707  11.8535195
## V56 0.3744306   4.777483  -5.6331326
## V57 0.3210252   3.516715 -16.1372576
## V58 0.3758816   3.841793 -14.9606667
## V59 0.3299170   3.430447 -11.5364414
## V60 0.4277314   3.273411  -5.5848202
## V61 0.4787276   3.502074  10.1751835
## V62 0.4893869   4.141941  14.0648483
## V63 0.4661224   4.515684  11.8881599
## V64 0.4128600   4.162474  -3.4054168
# assign a color to each event because we have 3 metrics
# red = iasd
# green = temperature change
# blue = precip change
som.events.colors <- rgb( scales::rescale(som.events[,1], to =c(0,255)),
                          scales::rescale(som.events[,2], to =c(0,255)) ,
                         scales::rescale(som.events[,3], to =c(0,255)), 
                         maxColorValue = 255)

# calculate a distance matrix
som.dist <- as.matrix(dist(som.events))

plots

## generate a plot of the untrained data.  this isn't really the configuration at first iteration, but
## serves as an example
plot(som.model,
     type = 'mapping',
     bg = som.events.colors[sample.int(length(som.events.colors), size = length(som.events.colors))],
     keepMargins = F,
     col = NA,
     main = '')

## generate a plot after training.
plot(som.model,
     type = 'mapping',
     bg = som.events.colors,
     keepMargins = F,
     col = NA,
     main = '')

look for num clusters

#### look for a reasonable number of clusters ####

## Evaluate within cluster distances for different values of k.  This is
## more dependent on the number of map units in the SOM than the structure
## of the underlying data, but until we have a better way...

## Define a function to calculate mean distance within each cluster.  This
## is roughly analogous to the within clusters ss approach

clusterMeanDist <- function(clusters){
  cluster.means = c()
  
  for(c in unique(clusters)){
    temp.members <- which(clusters == c)
    
    if(length(temp.members) > 1){
      temp.dist <- som.dist[temp.members,]
      temp.dist <- temp.dist[,temp.members]
      cluster.means <- append(cluster.means, mean(temp.dist))
    }else(cluster.means <- 0)
  }
  
  return(mean(cluster.means))
  
}

try.k <- 2:62
cluster.dist.eval <- as.data.frame(matrix(ncol = 3, nrow = (length(try.k))))
colnames(cluster.dist.eval) <- c('k', 'kmeans', 'hclust')

for(i in 1:length(try.k)) {
  cluster.dist.eval[i, 'k'] <- try.k[i]
  cluster.dist.eval[i, 'kmeans'] <- clusterMeanDist(kmeans(som.events, centers = try.k[i], iter.max = 20)$cluster)
  cluster.dist.eval[i, 'hclust'] <- clusterMeanDist(cutree(hclust(vegdist(som.events)), k = try.k[i]))
}
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"

## Warning in vegdist(som.events): results may be meaningless because data have negative entries
##                  in method "bray"
plot(cluster.dist.eval[, 'kmeans'] ~ try.k,
     type = 'l')

lines(cluster.dist.eval[, 'hclust'] ~ try.k,
      col = 'red')

legend('topright',
       legend = c('k-means', 'hierarchical'),
       col = c('black', 'red'),
       lty = c(1, 1))

Try k = 9

# Define a function for make a simple plot of clustering output.
## This is the same as previousl plotting, but we define the function
## here as we wanted to play with the color earlier.

plotSOM <- function(clusters){
  plot(som.model,
       type = 'mapping',
       bg = som.events.colors,
       keepMargins = F,
       col = NA)
  
  add.cluster.boundaries(som.model, clusters, color = 'red')
}

cluster.tries <- list()

for(k in c(5, 8, 9, 10)){
   ## k-means clustering
  
  som.cluster.k <- kmeans(som.events, centers = k, iter.max = 100, nstart = 10)$cluster # k-means
  
  ## hierarchical clustering
  
  som.dist <- dist(som.events) # hierarchical, step 1
  som.cluster.h <- cutree(hclust(som.dist), k = k) # hierarchical, step 2

  cluster.tries[[paste0('som.cluster.k.', k)]] <- som.cluster.k
  cluster.tries[[paste0('som.cluster.h.', k)]] <- som.cluster.h
}

print('cluster size = 5')
## [1] "cluster size = 5"
plotSOM(cluster.tries$som.cluster.k.5)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

plotSOM(cluster.tries$som.cluster.h.5)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

print('cluster size = 8')
## [1] "cluster size = 8"
plotSOM(cluster.tries$som.cluster.k.8)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

plotSOM(cluster.tries$som.cluster.h.8)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

print('cluster size = 9')  
## [1] "cluster size = 9"
plotSOM(cluster.tries$som.cluster.k.9)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

plotSOM(cluster.tries$som.cluster.h.9)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

print('cluster size = 10')
## [1] "cluster size = 10"
plotSOM(cluster.tries$som.cluster.k.10)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

plotSOM(cluster.tries$som.cluster.h.10)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter

test 2

robustness in terms of model fit and grid size

region_numerical <- as.data.frame(region_summary[c('iasd', "tas_change", "pr_pct")])

#### train the SOM ####
sample.size <- nrow(region_numerical)
print(paste('Num Observations is', sample.size ))
## [1] "Num Observations is 172"
## define a grid for the SOM and train
grid.size <- ceiling(sample.size ^ (1/2.5))
som.grid <- somgrid(xdim = grid.size, ydim = grid.size, topo = 'hexagonal', toroidal = T)

# 2 models with same grid size to test robustness across 
som.model1 <- som(data.matrix(region_numerical), grid = som.grid)
som.model2 <- som(data.matrix(region_numerical), grid = som.grid)
som.events1 <- som.model1$codes[[1]]

# assign a color to each event because we have 3 metrics
# red = iasd
# green = temperature change
# blue = precip change
som.events.colors1 <- rgb( scales::rescale(som.events1[,1], to =c(0,255)),
                          scales::rescale(som.events1[,2], to =c(0,255)) ,
                         scales::rescale(som.events1[,3], to =c(0,255)), 
                         maxColorValue = 255)

# calculate a distance matrix
som.dist1 <- as.matrix(dist(som.events1))

# and for estimate 2
som.events2 <- som.model2$codes[[1]]
som.events.colors2 <- rgb( scales::rescale(som.events2[,1], to =c(0,255)),
                          scales::rescale(som.events2[,2], to =c(0,255)) ,
                         scales::rescale(som.events2[,3], to =c(0,255)), 
                         maxColorValue = 255)

# calculate a distance matrix
som.dist2 <- as.matrix(dist(som.events2))
## generate a plot after training.
plot(som.model1,
     type = 'mapping',
     bg = som.events.colors1,
     keepMargins = F,
     col = NA,
     main = '')

plot(som.model2,
     type = 'mapping',
     bg = som.events.colors2,
     keepMargins = F,
     col = NA,
     main = '')

need to understand

  • robustness: different grid size hyperparameters, different realizations with the same grid size
  • Do any of those clusters correspond to different regions or scenarios
  • do different ESMs have differt biomes?